Imports DAO
Imports DTO

Public Class MonHocBUS
    'Lay Bang
    Public Function LayBang() As DataTable
        Dim dt As DataTable
        Dim mhDAO As New MonHocDAO()
        dt = mhDAO.LayBang()
        Return dt
    End Function

    'lay danh sach gv phu trach lop hoc theo mon hoc
    Public Function GVPT(ByVal maMH As Integer) As DataTable
        Dim dt As DataTable
        Dim mhDAO As New MonHocDAO()
        dt = mhDAO.GVPT(maMH)
        Return dt
    End Function

    'them mon hoc
    Public Sub Them(ByVal mh As MonHocDTO)
        Dim mhDAO As New MonHocDAO
        mhDAO.Them(mh)
    End Sub

    ' sua mon hoc
    Public Sub SuaMonHoc(ByVal mh As MonHocDTO)
        Dim mhDAO As New MonHocDAO
        mhDAO.SuaMonHoc(mh)
    End Sub

End Class
